home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
MacHack 1996
/
MacHack 1996.toast
/
Presentations
/
Presentations ’94
/
Timothy Knox
/
Help
/
Help Files
/
Constraints
/
Send+More
< prev
next >
Wrap
Text File
|
1994-06-24
|
743b
|
31 lines
{ SEND+MORE=MONEY }
(c)
;;; Variables
(r2 m s o r1 e n r0 r y d)
;;; Constraints
((=? (+ d e) (+ y (* 10 r0)))
(=? (+ r0 (+ n r)) (+ e (* 10 r1)))
(=? (+ r1 (+ e o)) (+ n (* 10 r2)))
(=? (+ r2 (+ s m)) (+ o (* 10 m))) (<>? m 0)
(<>? s e) (<>? s n) (<>? s d) (<>? s m) (<>? s o) (<>? s r)
(<>? s y) (<>? e n) (<>? e d) (<>? e m) (<>? e o)
(<>? e y) (<>? n d) (<>? n m) (<>? n o) (<>? n r)
(<>? d m) (<>? d o) (<>? d r) (<>? d e) (<>? d y)
(<>? m o) (<>? m r) (<>? m e) (<>? m y) (<>? o r)
(<>? o e) (<>? o y) (<>? r e) (<>? r y))
;;; Domains
((1 0)
(0 1)
(0 1 2 3 4 5 6 7 8 9)
(0 1 2 3 4 5 6 7 8 9)
(1 0)
(0 1 2 3 4 5 6 7 8 9)
(0 1 2 3 4 5 6 7 8 9)
(1 0)
(0 1 2 3 4 5 6 7 8 9)
(0 1 2 3 4 5 6 7 8 9)
(0 1 2 3 4 5 6 7 8 9))